<% Dim strMenu,PageTitle,sxcrcwzk,gerenid,Act,MemberTypee,hytimee,Feess,rsczz,sqlczz,qyjq,qyjf,qyhyks,qyhyjs,hylx,ztxx,jyrcwcomjff,jyrcwcomjfff,jyrcwcomjqq,xqyhyks,xqyhyjs,rsddc,rsddd,Mobile,MName sxcrcwzk=3 strMenu = "" PagePath = "../" Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() %> <% Act = Jyrcw.chgStr(Trim(Request.QueryString("action"))) If Act = "Iskt" Then MemberTypee = Jyrcw.chgStr(Trim(Request.QueryString("MemberId"))) hytimee = Jyrcw.chgStr(Trim(Request.QueryString("hytime"))) Feess = Jyrcw.chgStr(Trim(Request.QueryString("Fees"))) MName = Jyrcw.chgStr(Trim(Request.QueryString("MName"))) set rsczz=server.createobject("adodb.recordset") sqlczz="select jyrcwperjq,jyrcwperjf,isvipks,isvipjs,isviplx,Tel from PersonTbl where PerId="&Request.Cookies("PerId")&"" rsczz.open sqlczz,conn,1,1 do while not rsczz.eof qyjq=Rsczz("jyrcwperjq") qyjf=Rsczz("jyrcwperjf") qyhyks=Rsczz("isvipks") qyhyjs=Rsczz("isvipjs") hylx=Rsczz("isviplx") Mobile=Rsczz("Tel") Rsczz.movenext loop rsczz.close() Set rsczz=Nothing if qyjq="" or isnull(qyjq) then qyjq=0 end if if qyjf="" or isnull(qyjf) then qyjf=0 end if if int(qyjq)int(hylx) then MemberTypee=MemberTypee else MemberTypee=hylx end if if qyhyjs="" or isnull(qyhyjs) or DateDiff("d",qyhyjs,now())>=0 then xqyhyks=Jyrcw.FormatDatee(now(),2) xqyhyjs=Jyrcw.FormatDatee(DateAdd("d",hytimee,xqyhyks),2) else xqyhyks=qyhyks xqyhyjs=Jyrcw.FormatDatee(DateAdd("d",hytimee,qyhyjs),2) end if if MemberTypee=1 or MemberTypee=2 then set rsddc=server.createobject("adodb.recordset") Rsddc.Open "select jyrcwperjq,jyrcwperjf,isvipks,isvipjs,isviplx,IsTj,Isvip from PersonTbl where PerId="&Request.Cookies("PerId")&"" , Conn , 3 , 2 Rsddc("jyrcwperjq") = jyrcwcomjqq Rsddc("jyrcwperjf") = jyrcwcomjfff Rsddc("isviplx") = MemberTypee Rsddc("isvipks") = xqyhyks Rsddc("isvipjs") = xqyhyjs Rsddc("IsTj") = "1" Rsddc("Isvip") = "1" Rsddc.Update Rsddc.Close Set Rsddc=nothing End if if MemberTypee=3 then set rsddc=server.createobject("adodb.recordset") Rsddc.Open "select jyrcwperjq,jyrcwperjf,isvipks,isvipjs,isviplx,IsTj,IsGj,Isvip from PersonTbl where PerId="&Request.Cookies("PerId")&"" , Conn , 3 , 2 Rsddc("jyrcwperjq") = jyrcwcomjqq Rsddc("jyrcwperjf") = jyrcwcomjfff Rsddc("isviplx") = MemberTypee Rsddc("isvipks") = xqyhyks Rsddc("isvipjs") = xqyhyjs Rsddc("IsTj") = "1" Rsddc("IsGj") = "1" Rsddc("Isvip") = "1" Rsddc.Update Rsddc.Close Set Rsddc=nothing End if if MemberTypee=4 then set rsddc=server.createobject("adodb.recordset") Rsddc.Open "select jyrcwperjq,jyrcwperjf,isvipks,isvipjs,isviplx,IsTj,IsGj,gerenxxph,Isvip from PersonTbl where PerId="&Request.Cookies("PerId")&"" , Conn , 3 , 2 Rsddc("jyrcwperjq") = jyrcwcomjqq Rsddc("jyrcwperjf") = jyrcwcomjfff Rsddc("isviplx") = MemberTypee Rsddc("isvipks") = xqyhyks Rsddc("isvipjs") = xqyhyjs Rsddc("IsTj") = "1" Rsddc("IsGj") = "1" Rsddc("gerenxxph") = "1" Rsddc("Isvip") = "1" Rsddc.Update Rsddc.Close Set Rsddc=nothing End if set rsddd=server.createobject("adodb.recordset") Rsddd.Open "select * from jyrcwperjfjl where (jyrcwjfjlid is null)" , Conn , 3 , 2 Rsddd.AddNew Rsddd("jyrcwjfjlnr") = "开通VIP"&MName&"" Rsddd("jyrcwjfjljf") = jyrcwcomjff Rsddd("jyrcwjfjlsj") = Jyrcw.FormatDatee(now(),1) Rsddd("jyrcwjfjlcom") = Request.Cookies("perId") Rsddd("jyrcwjfjllx") = "0" Rsddd.Update Rsddd.Close Set Rsddd=nothing set rsddd=server.createobject("adodb.recordset") Rsddd.Open "select * from jyrcwperxfjl where (jyrcwxfjlid is null)" , Conn , 3 , 2 Rsddd.AddNew Rsddd("jyrcwxfjlnr") = "开通VIP"&MName&"" Rsddd("jyrcwxfjljf") = Feess Rsddd("jyrcwxfjlsj") = Jyrcw.FormatDatee(now(),1) Rsddd("jyrcwxfjlcom") = Request.Cookies("perId") Rsddd.Update Rsddd.Close Set Rsddd=nothing %> <% if Mobile<>"" then if jyrcwsjjkkg=0 then if jyrcwznsjqtkg(13)=1 then dim smsurl,soaprequest,retvalue,m,c,t,u,p,strxml,uid,pwd,Rsfsjl,xmlhttp,xmlDOC,bOK,xmlStr,WebSms smsurl="http://www.lingd0.com/SMSSER/ServiceSms.asmx"'地址 m=trim(Mobile)' 参数手机号 c=""&RealName&",您已成功开通VIP"&MName&",并赠送您"&jyrcwcomjfff&"分积分,现在开始,您可以享受我们的高级会员服务"&jyrcwsjjknr&""'发送内容 t=now()'时间 u=""&jyrcw.jyrcwsjjkyhm&""'用户名 P=""&jyrcw.jyrcwsjjkmm&""'密码 %> <% dim vJGID,vMM,vYHMC,HM,NR,vHM,vNR vJGID="338" vYHMC=u vMM=P vHM=m vNR=c vNr = UTF8EncodeURI(vNR) Dim http,url,vRef,vLen Dim vState, vId, vFailPhone url = "http://124.172.234.157:8180/Service.asmx" & "/SendMessage" vRef = "Id=" & vJGID & "&Name=" & vYHMC & "&Psw=" & vMM & "&Message=" & vNr & "&Phone=" & vHM & "&Timestamp=0" vLen = Len(vRef) Set http = CreateObject("MSXML2.XMLHTTP") If http Is Nothing Then Set http = CreateObject("Microsoft.XMLHTTP") If http Is Nothing Then Set http = CreateObject("MSXML2.ServerXMLHTTP") End If End If http.Open "POST", url, False http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" http.setRequestHeader "Content-Length", vLen http.send CStr(vRef) Dim objXDD,objXDL,nIndex,vNodeName Set objXDD = CreateObject("Microsoft.XMLDOM") Dim vStr vStr = Trim(http.responseText) objXDD.loadXML (vStr) For nIndex = 0 To (objXDD.childNodes.length - 1) Step 1 vNodeName = Trim("" & objXDD.childNodes.Item(nIndex).nodeName) If vNodeName = "SendState" Then Set objXDL = objXDD.childNodes.Item(nIndex).childNodes End If Next If Not (objXDL Is Nothing) Then With objXDL For nIndex = 0 To (objXDL.length - 1) Step 1 vNodeName = Trim("" & .Item(nIndex).nodeName) Select Case LCase(vNodeName) Case "state" vState = "" & .Item(nIndex).nodeTypedValue Case "id" vId = "" & .Item(nIndex).nodeTypedValue Case "failphone" vFailPhone = "" & .Item(nIndex).nodeTypedValue Case Else End Select Next End With End If vStr= "state=" & vState &",Id=" & vId &",FailPhone=" & vFailPhone %> <% if vState>0 then Set Rsfsjl = server.createobject("ADODB.Recordset") Rsfsjl.Open "select jyrcwsjfsjlmc,jyrcwsjfsjlnr,jyrcwsjfsjlhm,jyrcwsjfsjlsj from jyrcwsjfsjl where (jyrcwsjfsjlid is null)" , Conn , 3 , 2 Rsfsjl.AddNew Rsfsjl("jyrcwsjfsjlmc")=RealName Rsfsjl("jyrcwsjfsjlnr")=c Rsfsjl("jyrcwsjfsjlhm")=Mobile Rsfsjl("jyrcwsjfsjlsj")=now() Rsfsjl.Update Rsfsjl.Close set Rsfsjl=nothing end if end if end if end if Jyrcw.ShowMsg "恭喜您，会员开通成功！并赠送您"&jyrcwcomjff&"分积分！" , "vip.asp" End if End If %>

会员服务

网站会员服务购买

<% set rs=server.createobject("adodb.recordset") sql="select * FROM PersonConfigTbl" rs.open sql,conn,1,1 do while not rs.eof gerenid = Rs("gerenid") %> <%rs.movenext loop rs.close() Set rs=Nothing %>

会员类型	会员天数	会员服务	收费标准
<%=Rs("gerenmc")%>	<%=Rs("gerents")%>天	<%if gerenid=0 then%>没有任何增值服务<%end if%><%if gerenid=1 or gerenid=2 then%>将简历信息设为推荐人才<%if jyrcwgrsc=0 then%>，并且可以上传简历附件。<%end if%><%end if%><%if gerenid=3 then%>将简历信息设为推荐人才和高级人才<%if jyrcwgrsc=0 then%>，并且可以上传简历附件。<%end if%><%end if%><%if gerenid=4 then%>将简历信息设为推荐人才和高级人才，并且进行飘红高亮显示<%if jyrcwgrsc=0 then%>，并且可以上传简历附件。<%end if%><%end if%>	<%if Rs("gerensf")=0 then%>免费<%else%><%=Rs("gerensf")%>元<%end if%>	<%if Rs("gerensf")=0 then%>无需开通<%else%>&hytime=<%=Rs("gerents")%>&Fees=<%=rs("gerensf")%>&MName=<%=rs("gerenmc")%>" onClick="return HTMerDel();" style="color:#ff6600;">点击开通<%end if%>